home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / curlibm / curlibm.bas next >
Encoding:
BASIC Source File  |  1995-05-09  |  2.3 KB  |  63 lines
  1. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. '
  3. 'This Demo is copyrighed by Pierre Fillion 1992
  4.  
  5. 'CURSLIBM (Cursor Libraries Manipulations) will show you:
  6.  
  7. 'How to retreive a cursor from a DLL library and use it in you VB applications.
  8. 'How to make cursors animations using the libraried (Moving cursors!)
  9. 'Include 2 cursors Libraries (.DLL) with 28 differents animated and simple cursors
  10.  
  11. 'I released the source of this demo to show the use of api calls for cursor
  12. 'libraries manipulations. Many hours have been spend to create this demo
  13. '(cursors libraries) to make it public. Feel free to use part of the code as
  14. 'long as you send a 15$ minimum donation. If not, delete the whole archive.
  15.  
  16. 'Thanks a lot.
  17.  
  18. 'Pierre Fillion
  19. '8460 Perras Apt1
  20. 'Montreal, Quebec
  21. 'Canada, H1E 5C7
  22.  
  23. 'Questions, suggestions, want to trade some routines !?? Go Ahead. CIS ID:71162,51
  24.  
  25. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  26.  
  27. 'NOTES:
  28. '
  29. '  1- The program actually don't restore the form cursor. When you will exit it and
  30. '     return in the VB environment, put your cursor on the form frame and look at
  31. '     the cursor! To prevent this, just restore the cursor before exiting the demo.
  32.  
  33. '     I didn't fixed the previous note because I found it nice to let you take a
  34. '     look at it. Just delete the ' mark before the LastCursor lines in Form_Unload
  35.  
  36. '  2- The cursors have been created using the Whitewather Ressource Toolkit v3.01a
  37. '     included with Turbo Pascal for Windows. After creating them, I added them
  38. '     in the DLL. (belive me, I spend many hours to create all the cursors!)
  39.    
  40.  
  41. '     YOU HAVE NO RIGHTS USING THESE CURSORS OR ANY PARTS OF THE LIBRARIES IF YOU DON'T
  42. '     SEND A 15$ MINIMUM FEE TO THE AUTHOR. SEE "README.1ST" FILE.
  43.  
  44.  
  45. '     I didn't found how to directly load a cursor from the .CUR file without
  46. '     accessing it throught a DLL. If you know how to do it, please, drop me a line
  47. '     on Compuserve. I'd really like to know. Thanks.
  48.  
  49.  
  50. 'Turbo Pascal is a registred trademark of Borland Internationnal.
  51. 'WRT is copyrighted 1989-91 The Whitewather Group, Inc.
  52.  
  53. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  54.  
  55.  
  56. Type PointType
  57.  
  58. x As Integer
  59. y As Integer
  60.  
  61. End Type
  62.  
  63.